home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / Apps / DevTools / aa_m68k_Only / NXLogo / NXLogoLibrary / spingon.lg < prev    next >
Encoding:
Text File  |  1992-07-09  |  154 b   |  8 lines

  1. to spingon :n :edge :angle :growth :times
  2.  ht
  3.  if :times < 1 [STOP]
  4.  ngon :n :edge 
  5.  rt :angle 
  6.  spingon :n (:edge*:growth) :angle :growth (:times-1)
  7. end
  8.